home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MAXX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.4 KB  |  19 lines
  1.  
  2. *                                                                               
  3. *SELECT MAX OF DOUBLE A OR B (VARIABLES)                                        
  4. *                                                                               
  5. MAXX   $MACRO  A,B                                                              
  6.        SOVM              SET OVERFLOW MODE                                      
  7.        LDAX :A:          LOAD :A:                                               
  8.        SUBX :B:          COMPARE TO :B:                                         
  9.        $VAR L,L1,L2                                                             
  10.        $ASG '$$LAB' TO L.S                                                      
  11.        $ASG L.SV+2 TO L.SV   UNIQUE LABEL                                       
  12.        $ASG L.SV-1 TO L1.V                                                      
  13.        $ASG L.SV   TO L2.V                                                      
  14.        BGZ  L$:L1.V:     BRANCH IF :A:>:B:                                      
  15.        LDAX :B:          LOAD :B:                                               
  16.        B    L$:L2.V:     TO CONTINUE                                            
  17. L$:L1.V: LDAX :A:        LOAD :A:                                               
  18. L$:L2.V: ROVM            CONTINUE                                               
  19.        $END